‹#›
Autodesk Inventor 定制开发在线培训 2010
Installer 方法代码
•Imports System.Runtime.InteropServices
•
•Public Overrides Sub Install (ByVal stateSaver As System.Collections.IDictionary)
• MyBase.Install(stateSaver)
• Dim regsrv As RegistrationServices = New RegistrationServices()
• regsrv.RegisterAssembly(Me.GetType().Assembly, AssemblyRegistrationFlags.SetCodeBase)
•End Sub
•
•Public Overrides Sub Uninstall (ByVal savedState As System.Collections.IDictionary)
• MyBase.Uninstall(savedState)
• Dim regsrv As RegistrationServices = New RegistrationServices()
• regsrv.UnregisterAssembly(Me.GetType().Assembly)
•End Sub